home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TBRSTOKFORM / TBRSTOKFORM.txt
Text File  |  1998-07-24  |  18KB  |  642 lines
  1. object BrStokForm: TBrStokForm
  2.   Left = 24
  3.   Top = 72
  4.   Width = 559
  5.   Height = 316
  6.   ActiveControl = DBGrid1
  7.   Caption = '∩┐╜R∩┐╜N G∩┐╜R∩┐╜∩┐╜ ∩┐╜IKI∩┐╜ HAREKETLER∩┐╜'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   OnClose = FormClose
  14.   OnCreate = FormCreate
  15.   OnShow = FormShow
  16.   PixelsPerInch = 96
  17.   TextHeight = 16
  18.   object Panel1: TPanel
  19.     Left = 0
  20.     Top = 0
  21.     Width = 551
  22.     Height = 289
  23.     HelpContext = 518
  24.     Align = alClient
  25.     BevelInner = bvLowered
  26.     BevelWidth = 2
  27.     Caption = 'Panel1'
  28.     Color = clGray
  29.     TabOrder = 0
  30.     object ScrollBox1: TScrollBox
  31.       Left = 4
  32.       Top = 4
  33.       Width = 543
  34.       Height = 281
  35.       Align = alClient
  36.       AutoScroll = False
  37.       TabOrder = 0
  38.       object LabelAD: TLabel
  39.         Left = 8
  40.         Top = 3
  41.         Width = 55
  42.         Height = 14
  43.         Caption = 'Hangi Ila∩┐╜'
  44.         Font.Color = clWhite
  45.         Font.Height = -12
  46.         Font.Name = 'Arial'
  47.         Font.Style = [fsBold]
  48.         ParentFont = False
  49.       end
  50.       object DBText1: TDBText
  51.         Left = 314
  52.         Top = 186
  53.         Width = 109
  54.         Height = 17
  55.         Alignment = taRightJustify
  56.         Color = clNavy
  57.         DataField = 'SUM OF  CIKMIK * CIKFIYAT'
  58.         DataSource = DataSource1
  59.         Font.Color = clWhite
  60.         Font.Height = -11
  61.         Font.Name = 'Arial'
  62.         Font.Style = [fsBold]
  63.         ParentColor = False
  64.         ParentFont = False
  65.       end
  66.       object DBText2: TDBText
  67.         Left = 267
  68.         Top = 186
  69.         Width = 45
  70.         Height = 17
  71.         Alignment = taRightJustify
  72.         Color = clNavy
  73.         DataField = 'SUM OF CIKMIK'
  74.         DataSource = DataSource1
  75.         Font.Color = clWhite
  76.         Font.Height = -11
  77.         Font.Name = 'Arial'
  78.         Font.Style = [fsBold]
  79.         ParentColor = False
  80.         ParentFont = False
  81.       end
  82.       object DBText3: TDBText
  83.         Left = 140
  84.         Top = 186
  85.         Width = 125
  86.         Height = 17
  87.         Alignment = taRightJustify
  88.         Color = clWhite
  89.         DataField = 'SUM OF  GIRMIK * GIRFIYAT'
  90.         DataSource = DataSource1
  91.         Font.Color = clNavy
  92.         Font.Height = -11
  93.         Font.Name = 'Arial'
  94.         Font.Style = [fsBold]
  95.         ParentColor = False
  96.         ParentFont = False
  97.       end
  98.       object DBText4: TDBText
  99.         Left = 90
  100.         Top = 186
  101.         Width = 48
  102.         Height = 17
  103.         Alignment = taRightJustify
  104.         Color = clWhite
  105.         DataField = 'SUM OF GIRMIK'
  106.         DataSource = DataSource1
  107.         Font.Color = clNavy
  108.         Font.Height = -11
  109.         Font.Name = 'Arial'
  110.         Font.Style = [fsBold]
  111.         ParentColor = False
  112.         ParentFont = False
  113.       end
  114.       object Label1: TLabel
  115.         Left = 45
  116.         Top = 186
  117.         Width = 42
  118.         Height = 15
  119.         Caption = 'Toplam'
  120.         Font.Color = clWhite
  121.         Font.Height = -12
  122.         Font.Name = 'Arial'
  123.         Font.Style = [fsBold]
  124.         ParentFont = False
  125.       end
  126.       object Label3: TLabel
  127.         Left = 4
  128.         Top = 245
  129.         Width = 55
  130.         Height = 29
  131.         Caption = 'Yaz∩┐╜c∩┐╜ Sol Marj (cm)'
  132.         Font.Color = clWhite
  133.         Font.Height = -11
  134.         Font.Name = 'Arial Tur'
  135.         Font.Style = [fsBold]
  136.         ParentFont = False
  137.         WordWrap = True
  138.       end
  139.       object DBText5: TDBText
  140.         Left = 424
  141.         Top = 186
  142.         Width = 113
  143.         Height = 16
  144.         Alignment = taRightJustify
  145.         Color = clRed
  146.         DataField = 'FARK'
  147.         DataSource = DataSource1
  148.         Font.Color = clWhite
  149.         Font.Height = -11
  150.         Font.Name = 'Arial'
  151.         Font.Style = [fsBold]
  152.         ParentColor = False
  153.         ParentFont = False
  154.       end
  155.       object Label2: TLabel
  156.         Left = 376
  157.         Top = 3
  158.         Width = 110
  159.         Height = 14
  160.         Caption = 'Hareket D∩┐╜∩┐╜∩┐╜ Miktar :'
  161.         Font.Color = clBlack
  162.         Font.Height = -11
  163.         Font.Name = 'Arial'
  164.         Font.Style = [fsBold]
  165.         ParentFont = False
  166.       end
  167.       object DBText6: TDBText
  168.         Left = 490
  169.         Top = 1
  170.         Width = 46
  171.         Height = 17
  172.         Color = clNavy
  173.         DataField = 'SUM OF MIKDEG'
  174.         DataSource = DataSource2
  175.         Font.Color = clWhite
  176.         Font.Height = -11
  177.         Font.Name = 'Arial'
  178.         Font.Style = [fsBold]
  179.         ParentColor = False
  180.         ParentFont = False
  181.       end
  182.       object Label4: TLabel
  183.         Left = 425
  184.         Top = 173
  185.         Width = 21
  186.         Height = 14
  187.         Caption = 'Fark'
  188.         Font.Color = clWhite
  189.         Font.Height = -11
  190.         Font.Name = 'Arial'
  191.         Font.Style = []
  192.         ParentFont = False
  193.         Transparent = True
  194.       end
  195.       object DBGrid1: TDBGrid
  196.         Left = 0
  197.         Top = 19
  198.         Width = 538
  199.         Height = 156
  200.         Color = clNavy
  201.         DataSource = UrunHarSRC
  202.         Font.Color = clWhite
  203.         Font.Height = -11
  204.         Font.Name = 'Arial'
  205.         Font.Style = [fsBold]
  206.         Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  207.         ParentFont = False
  208.         ReadOnly = True
  209.         TabOrder = 0
  210.         TitleFont.Color = clNavy
  211.         TitleFont.Height = -11
  212.         TitleFont.Name = 'Arial'
  213.         TitleFont.Style = [fsBold]
  214.         OnKeyUp = DBGrid1KeyUp
  215.       end
  216.       object BitBtnTAM: TBitBtn
  217.         Left = 459
  218.         Top = 248
  219.         Width = 75
  220.         Height = 25
  221.         Font.Color = clNavy
  222.         Font.Height = -11
  223.         Font.Name = 'Arial'
  224.         Font.Style = [fsBold]
  225.         ParentFont = False
  226.         TabOrder = 8
  227.         Kind = bkOK
  228.       end
  229.       object BitBtnTARIH: TBitBtn
  230.         Left = 357
  231.         Top = 248
  232.         Width = 95
  233.         Height = 25
  234.         Caption = 'Tarih Aral∩┐╜∩┐╜∩┐╜ '
  235.         Font.Color = clNavy
  236.         Font.Height = -11
  237.         Font.Name = 'Arial'
  238.         Font.Style = [fsBold]
  239.         ParentFont = False
  240.         TabOrder = 7
  241.         OnClick = BitBtnTARIHClick
  242.         Glyph.Data = {
  243.           78010000424D7801000000000000760000002800000020000000100000000100
  244.           04000000000000000000120B0000120B00000000000000000000000000000000
  245.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  246.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  247.           33333FFFFFFFFFFFFFFF000000000000000077777777777777770FF7FF7FF7FF
  248.           7FF07FF7FF7FF7F37F3709F79F79F7FF7FF077F77F77F7FF7FF7077777777777
  249.           777077777777777777770FF7FF7FF7FF7FF07FF7FF7FF7FF7FF709F79F79F79F
  250.           79F077F77F77F77F77F7077777777777777077777777777777770FF7FF7FF7FF
  251.           7FF07FF7FF7FF7FF7FF709F79F79F79F79F077F77F77F77F77F7077777777777
  252.           777077777777777777770FFFFF7FF7FF7FF07F33337FF7FF7FF70FFFFF79F79F
  253.           79F07FFFFF77F77F77F700000000000000007777777777777777CCCCCC8888CC
  254.           CCCC777777FFFF777777CCCCCCCCCCCCCCCC77777777777777770000}
  255.         NumGlyphs = 2
  256.       end
  257.       object Edit1: TEdit
  258.         Left = 4
  259.         Top = 208
  260.         Width = 59
  261.         Height = 23
  262.         Color = clNavy
  263.         Enabled = False
  264.         Font.Color = clWhite
  265.         Font.Height = -12
  266.         Font.Name = 'Arial'
  267.         Font.Style = [fsBold, fsUnderline]
  268.         ParentFont = False
  269.         TabOrder = 1
  270.         Text = 'A∩┐╜∩┐╜klama'
  271.       end
  272.       object Panel2: TPanel
  273.         Left = 65
  274.         Top = 207
  275.         Width = 468
  276.         Height = 33
  277.         BevelOuter = bvLowered
  278.         Caption = 'Panel2'
  279.         TabOrder = 2
  280.         object EditACIK: TLabel
  281.           Left = 1
  282.           Top = 1
  283.           Width = 466
  284.           Height = 31
  285.           Align = alClient
  286.           Caption = 'EditACIK'
  287.           Color = clSilver
  288.           Font.Color = clBlack
  289.           Font.Height = -12
  290.           Font.Name = 'Arial'
  291.           Font.Style = [fsBold]
  292.           ParentColor = False
  293.           ParentFont = False
  294.         end
  295.       end
  296.       object AylikBtn: TBitBtn
  297.         Left = 254
  298.         Top = 248
  299.         Width = 95
  300.         Height = 25
  301.         HelpContext = 519
  302.         Caption = '&Ayl∩┐╜k Rapor'
  303.         Font.Color = clNavy
  304.         Font.Height = -11
  305.         Font.Name = 'Arial'
  306.         Font.Style = [fsBold]
  307.         ParentFont = False
  308.         TabOrder = 6
  309.         OnClick = AylikBtnClick
  310.         Glyph.Data = {
  311.           78010000424D7801000000000000760000002800000020000000100000000100
  312.           04000000000000000000120B0000120B00000000000000000000000000000000
  313.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  314.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
  315.           00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
  316.           00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
  317.           F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
  318.           F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
  319.           F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
  320.           FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
  321.           0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
  322.           0033333337FFFFFF7733333330000000033333333777777773330000}
  323.         NumGlyphs = 2
  324.       end
  325.       object BitBtn1: TBitBtn
  326.         Left = 183
  327.         Top = 248
  328.         Width = 65
  329.         Height = 25
  330.         HelpContext = 519
  331.         Caption = '&Yazd∩┐╜r'
  332.         Font.Color = clNavy
  333.         Font.Height = -11
  334.         Font.Name = 'Arial'
  335.         Font.Style = [fsBold]
  336.         ParentFont = False
  337.         TabOrder = 5
  338.         OnClick = BitBtn1Click
  339.         Glyph.Data = {
  340.           78010000424D7801000000000000760000002800000020000000100000000100
  341.           04000000000000000000120B0000120B00000000000000000000000000000000
  342.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  343.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
  344.           00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
  345.           00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
  346.           F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
  347.           F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
  348.           F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
  349.           FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
  350.           0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
  351.           0033333337FFFFFF7733333330000000033333333777777773330000}
  352.         NumGlyphs = 2
  353.       end
  354.       object SpinEdit1: TSpinEdit
  355.         Left = 59
  356.         Top = 247
  357.         Width = 44
  358.         Height = 24
  359.         Font.Color = clBlack
  360.         Font.Height = -12
  361.         Font.Name = 'Arial'
  362.         Font.Style = [fsBold]
  363.         MaxLength = 25
  364.         MaxValue = 0
  365.         MinValue = 0
  366.         ParentFont = False
  367.         TabOrder = 3
  368.         Value = 0
  369.       end
  370.       object BtnYF: TBitBtn
  371.         Left = 110
  372.         Top = 248
  373.         Width = 67
  374.         Height = 25
  375.         Caption = '&Fontu'
  376.         Font.Color = clNavy
  377.         Font.Height = -11
  378.         Font.Name = 'Arial'
  379.         Font.Style = [fsBold]
  380.         ParentFont = False
  381.         TabOrder = 4
  382.         OnClick = BtnYFClick
  383.         Glyph.Data = {
  384.           76010000424D7601000000000000760000002800000020000000100000000100
  385.           04000000000000010000130B0000130B00000000000000000000000000000000
  386.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  387.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  388.           3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
  389.           0000773777777733777703330033033330037FFF77F37F33377F700007330333
  390.           3003777777337FFFF77F303003337000007337F77F3377777773303073333033
  391.           003337F77F3337F377F337007333303300333777733337FF77F3330033333703
  392.           07333377F333377F7733330733333300033333773FF3F3777F33333399393300
  393.           033333337737FF777F333333339993307333333333777FF77333333333999930
  394.           3333333333777737333333333333333333333333333333333333333333333333
  395.           3333333333333333333333333333333333333333333333333333}
  396.         NumGlyphs = 2
  397.       end
  398.     end
  399.   end
  400.   object UrunHarTab: TTable
  401.     AfterOpen = UrunHarTabAfterOpen
  402.     BeforeClose = UrunHarTabBeforeClose
  403.     DatabaseName = 'ECZ'
  404.     IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO'
  405.     TableName = 'URUNHRK.DB'
  406.     Left = 232
  407.     Top = 8
  408.     object UrunHarTabILACNO: TIntegerField
  409.       FieldName = 'ILACNO'
  410.       Visible = False
  411.     end
  412.     object UrunHarTabGCTARIH: TDateTimeField
  413.       DisplayLabel = 'Tarih'
  414.       DisplayWidth = 12
  415.       FieldName = 'GCTARIH'
  416.       DisplayFormat = 'dd.mm.yy hh:nn'
  417.     end
  418.     object UrunHarTabGIRMIK: TIntegerField
  419.       DisplayLabel = 'Gr∩┐╜.Mik.'
  420.       DisplayWidth = 7
  421.       FieldName = 'GIRMIK'
  422.     end
  423.     object UrunHarTabGIRFIYAT: TCurrencyField
  424.       DisplayLabel = 'Giri∩┐╜ Fiyat∩┐╜'
  425.       DisplayWidth = 20
  426.       FieldName = 'GIRFIYAT'
  427.       DisplayFormat = '#,#'
  428.     end
  429.     object UrunHarTabCIKMIK: TIntegerField
  430.       DisplayLabel = '∩┐╜∩┐╜k.Mik.'
  431.       DisplayWidth = 7
  432.       FieldName = 'CIKMIK'
  433.     end
  434.     object UrunHarTabCIKFIYAT: TCurrencyField
  435.       DisplayLabel = '∩┐╜∩┐╜k∩┐╜∩┐╜ Fiyat∩┐╜'
  436.       DisplayWidth = 17
  437.       FieldName = 'CIKFIYAT'
  438.       DisplayFormat = '#,#'
  439.     end
  440.     object UrunHarTabALSATNO: TFloatField
  441.       DisplayLabel = 'Hareket No'
  442.       DisplayWidth = 15
  443.       FieldName = 'ALSATNO'
  444.       OnGetText = UrunHarTabALSATNOGetText
  445.     end
  446.     object UrunHarTabSIRANO: TIntegerField
  447.       FieldName = 'SIRANO'
  448.       Visible = False
  449.     end
  450.   end
  451.   object UrunHarSRC: TDataSource
  452.     DataSet = UrunHarTab
  453.     OnDataChange = UrunHarSRCDataChange
  454.     Left = 192
  455.   end
  456.   object recStokTAB: TTable
  457.     DatabaseName = 'ECZ'
  458.     IndexFieldNames = 'SATISNO'
  459.     MasterFields = 'ALSATNO'
  460.     MasterSource = UrunHarSRC
  461.     TableName = 'RECETE.DB'
  462.     Left = 360
  463.     Top = 144
  464.     object recStokTABSATISNO: TFloatField
  465.       FieldName = 'SATISNO'
  466.     end
  467.     object recStokTABKURUMKOD: TStringField
  468.       FieldName = 'KURUMKOD'
  469.       Size = 11
  470.     end
  471.     object recStokTABHASTANO: TIntegerField
  472.       FieldName = 'HASTANO'
  473.     end
  474.   end
  475.   object FatStokTAB: TTable
  476.     DatabaseName = 'ECZ'
  477.     IndexFieldNames = 'SATISNO'
  478.     MasterFields = 'ALSATNO'
  479.     MasterSource = UrunHarSRC
  480.     TableName = 'FATURA.DB'
  481.     Left = 296
  482.     Top = 144
  483.     object FatStokTABSATISNO: TFloatField
  484.       FieldName = 'SATISNO'
  485.     end
  486.     object FatStokTABKRMAD: TStringField
  487.       FieldName = 'KRMAD'
  488.       Size = 36
  489.     end
  490.   end
  491.   object HastaSTAB: TTable
  492.     AutoCalcFields = False
  493.     DatabaseName = 'ECZ'
  494.     TableName = 'HASTA.DB'
  495.     Left = 336
  496.     Top = 144
  497.     object HastaSTABHASTANO: TIntegerField
  498.       FieldName = 'HASTANO'
  499.     end
  500.     object HastaSTABHASTADI: TStringField
  501.       FieldName = 'HASTADI'
  502.       Size = 18
  503.     end
  504.     object HastaSTABHASTASOYAD: TStringField
  505.       FieldName = 'HASTASOYAD'
  506.       Size = 18
  507.     end
  508.   end
  509.   object AliStkTAB: TTable
  510.     DatabaseName = 'ECZ'
  511.     IndexFieldNames = 'ALISNO'
  512.     TableName = 'ALIS1.DB'
  513.     Left = 176
  514.     Top = 144
  515.     object AliStkTABKRMKOD: TStringField
  516.       FieldName = 'KRMKOD'
  517.       Size = 11
  518.     end
  519.     object AliStkTABALISNO: TFloatField
  520.       FieldName = 'ALISNO'
  521.     end
  522.     object AliStkTABFATNO: TStringField
  523.       FieldName = 'FATNO'
  524.       Size = 15
  525.     end
  526.   end
  527.   object SatSTKTAB: TTable
  528.     DatabaseName = 'ECZ'
  529.     TableName = 'SATIS.DB'
  530.     Left = 336
  531.     Top = 104
  532.     object SatSTKTABSATISNO: TFloatField
  533.       FieldName = 'SATISNO'
  534.     end
  535.     object SatSTKTABPARAKENDE: TStringField
  536.       FieldName = 'PARAKENDE'
  537.       Size = 1
  538.     end
  539.   end
  540.   object QTOP: TQuery
  541.     OnCalcFields = QTOPCalcFields
  542.     DatabaseName = 'ECZ'
  543.     Params.Data = {0100010004696C6E6F00030400010000000001}
  544.     SQL.Strings = (
  545.       'SELECT'
  546.       'SUM(GIRMIK* GIRFIYAT),'
  547.       'SUM(CIKMIK*CIKFIYAT),'
  548.       'SUM(GIRMIK),'
  549.       'SUM(CIKMIK)'
  550.       'FROM'
  551.       'URUNHRK'
  552.       'WHERE ILACNO=:ilno')
  553.     Left = 214
  554.     Top = 142
  555.     object QTOPSUMOFGIRMIKGIRFIYAT: TCurrencyField
  556.       FieldName = 'SUM OF  GIRMIK * GIRFIYAT'
  557.       DisplayFormat = '#,#'
  558.     end
  559.     object QTOPSUMOFCIKMIKCIKFIYAT: TCurrencyField
  560.       FieldName = 'SUM OF  CIKMIK * CIKFIYAT'
  561.       DisplayFormat = '#,#'
  562.     end
  563.     object QTOPSUMOFGIRMIK: TFloatField
  564.       FieldName = 'SUM OF GIRMIK'
  565.     end
  566.     object QTOPSUMOFCIKMIK: TFloatField
  567.       FieldName = 'SUM OF CIKMIK'
  568.     end
  569.     object QTOPFARK: TCurrencyField
  570.       Calculated = True
  571.       FieldName = 'FARK'
  572.     end
  573.   end
  574.   object DataSource1: TDataSource
  575.     DataSet = QTOP
  576.     Left = 238
  577.     Top = 150
  578.   end
  579.   object PrintDialog1: TPrintDialog
  580.     Left = 367
  581.     Top = 215
  582.   end
  583.   object FontDialog1: TFontDialog
  584.     Font.Color = clBlack
  585.     Font.Height = -11
  586.     Font.Name = 'Courier New'
  587.     Font.Style = []
  588.     Device = fdBoth
  589.     MinFontSize = 0
  590.     MaxFontSize = 0
  591.     Options = [fdAnsiOnly, fdEffects, fdFixedPitchOnly]
  592.     Left = 16
  593.     Top = 168
  594.   end
  595.   object FontTab: TTable
  596.     DatabaseName = 'ECZ'
  597.     TableName = 'FONT.DB'
  598.     Left = 104
  599.     Top = 192
  600.     object FontTabBIRIM: TStringField
  601.       FieldName = 'BIRIM'
  602.       Size = 9
  603.     end
  604.     object FontTabFONTADI: TStringField
  605.       FieldName = 'FONTADI'
  606.       Size = 35
  607.     end
  608.     object FontTabFONTSIZE: TSmallintField
  609.       FieldName = 'FONTSIZE'
  610.     end
  611.     object FontTabCOLOR: TIntegerField
  612.       FieldName = 'COLOR'
  613.     end
  614.     object FontTabSTYLE: TStringField
  615.       FieldName = 'STYLE'
  616.       Size = 1
  617.     end
  618.     object FontTabMARJIN: TSmallintField
  619.       FieldName = 'MARJIN'
  620.     end
  621.   end
  622.   object DataSource2: TDataSource
  623.     DataSet = Query1
  624.     Left = 390
  625.     Top = 54
  626.   end
  627.   object Query1: TQuery
  628.     DatabaseName = 'ECZ'
  629.     DataSource = UrunHarSRC
  630.     Params.Data = {0100010006494C41434E4F00030400701700000000}
  631.     SQL.Strings = (
  632.       'SELECT '
  633.       'ILACNO,'
  634.       'SUM(MIKDEG)'
  635.       'FROM MRAPORD'
  636.       'WHERE MRAPORD.ILACNO=:ILACNO'
  637.       'GROUP BY MRAPORD.ILACNO')
  638.     Left = 422
  639.     Top = 102
  640.   end
  641. end
  642.